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Goal:cut(24,12) 


predicates 
cutt(1nteger, 1nteger) 
clauses 12 Yes 


tow number: ",X),nl,!. 1 Solution‏ ا 


cutt (X1, #1). 


EE 


ıredicates | 
sum(T1nteger, Integer) 


.lauses 
sum(O0,S):-wr1te(S),nl, 
SUmM(N, S) 
N1—N ات‎ 10, 
N2N mod 10, 1 
S1=S+N2. Goal: summar(12345,0) 
sUumM(NI, S1). 15 Yes 
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red1cates 
sum(1nteger, 1nteger) 


.lauses 
sum(O0,S):-wrI1te(S),!. 
SUM(N, S) :- 

NI=N div 10, gerege 
S1=S+1, 
sum(N1I, S1). o Yes 
لإیجاد معکوس عدد ما‎ 


pred1cates 
1nv(1nteger, Integer) 
clauses 
Inv(O0,S):-wrIte(S),!. 
INV(N,S):- 
N1N div 10, KECE 
N2N mod 10, 
S1=S*10+N2, 
I1nv(N1,S1). EEYARDREAS 


3 
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يفحص العدد أولي أو ليس أولي 


pred1cates 
prime(1nteger) 
prime1l(Tnteger, 1nteger) 
clauses met 
prime(X) :- ` ori 
e Goal: prime(9) 
primel(X,X1) . 
primel(_,1):- 
wri1te( "prime"),nl,'!. Not prime 
primel(X,X1) :- 
xXx mod X1<>û0, 
X2=X1-1, 
primel(X,X2); 
write( "not prîime"),nl. 


Yes 


لطباعة المتسلسلة التالية "/1+..... + 1/4 + 1/3+ 1/2 + X=1‏ 


pred1cates 
sum(1nteger, real ) 
clauses 
sum(O0,X):- 
wrIlte(X),nl. 
SUM(N,X):- 
N1=N-1, 
X1=X+ CL/N) 2 2۹33 
sum(N1, X1). Yes 


Goal :sSUM(4,0) 


1k 1 
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لطباعة المتسلسلة التالية 242.....N.‏ 80 26 8 2 


IE 


pred1cates 
run(1Integer, 1nteger) 
clauses 
run(O,_):-!. FREER) 
run(N, J): - 2 8 26 80 2 
N1=N-1, 
J1=3*3+2, Yes 
write(Jl," J), 
run(N1, J1). 
×,۷ لحساب المضاعف المشترك الادنى لعددين‎ 


oredicates 


RUN 

mmm(1nteger, 1nteger, I1nteger) 
clauses 

run: - 

readI1nt(N), readInt(M) ,mmm(N, M,M). 


mmm (N, M, M1): - 

1 Rol O Goal: run 
M1 mod M=O0, ے1‎ 
wr1te(M1I) ; 5 
M2=M1+1, 

mmm (N, M, M2). 60 Yes 


1k 1 
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لطباعة مجموع عشرة أعداد يدخلها المستذ م من لوحة المفاتيح 


pred: e. Goal:isum(10,S 


sum(real , real ) 
clauses 
sum(O0, 0): - 
SUmM(N,Z):- 
N1=N-1, 
readInt(X), 
sUum(NI, Z1), 
Z=Z1+X. S=43Yes 


N O ± JO O O JO N "0 د‎ x 


لطباعة مجموع الاعداد الزوجية والفردية من n‏ 


pred1cates 
run 
sum(Integer, Integer, Integer) 
clauses 
run: - 
readI1nt(N),X—=0, Y=O0, SUM(N, X,Y). 
sum(O0,X, ۷): -write(X, ' e 
SUM(N,X,Y):- 
N mod 2-0, ! 
E Goal: run 
sUumM(N1,XI1,Y); 5 
N1=N-1, 


YI1=Y+N, 6 9 Yes 
sum(N1,X, Y1). 
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۷ 
X 
as 
pred1catesS | | | 
strong(1nteger, 1nteger, 1nteger) 
clauses 
strong(_,0,1):-!. Kele EGE 
strong(X, Y,Z):- 
Y1=Y-1, L=9 
strong(X, Y1,Z1), 
7-X*71 1soluatlon 
n لطباعة مجموع الاعداد الزوجية والفردية من‎ 
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